{
  Описания объектов исполняющей системы

 Расчет данных (поиск значений) - В результате расчета ожидется получение значений выходных данных.
  входные данные - выделены в памяти и имеют значения.
  выходные данные - выделены в памяти.
  алгоритм расчета (набор процедур и условия перехода) - определен.
  процедуры расчета - найдены в библиотеке, определены параметры.
  условия перехода - сформулированны, конкретный зависит от результатов расчета.

 Решение задачи (поиск алгоритма) - Определение алгоритма расчета и необходимых данных для решения задачи
  задача - описана

 Моделирование состояния (определение состояния объекта в определенных условиях)
  модель определена
  границы моделирования определены
  условия определены

 Моделирование переходного процесса (определение последовательности состояний при заданных воздействиях)
  модель определена
  начальное состояние задано
  внешние воздействия определены (или их отстутствие)
  границы моделирования определены

   версия 0.1 сентябрь 2010 prodg@ya.ru D.Kondakov
}
unit ExcSysObjcts;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, IIntgrlTypes, IIntgrlObjcts, DataObjcts;

{$i calcconfig.inc}

type
  TjbID = TinlID;
  TjbType = (jtProblem, jtProcess);
  TjbState = (jsNew, jsRun, jsStop, jsWait, jsDone, jsError, jsKill);

  { TiiTask }

  TiiTask = class

    constructor Create;
    destructor Destroy; override;
    function FindProc(prcName: TinlNameType): TinlID;
    function GetProcName(PID: TinlID): TinlNameType;
    function GetProcInfo(PID: TinlID): pointer;
    function GetProc(PID: TinlID): pointer;
  end;

  { TJobInfo }

  TJobInfo = class
    jbType: TjbType;
    jbName: TinlNameType;
    jbUsedData: TList;             // Необходимые данные
    jbUsedProcs: TList;            // Вызываемые библиотечные процедуры
    constructor Create;
    destructor Destroy; override;
  end;

  TMemInfo = class

  end;

implementation

{ TiiTask }

constructor TiiTask.Create;
begin

end;

destructor TiiTask.Destroy;
begin

  inherited Destroy;
end;

function TiiTask.FindProc(prcName: TinlNameType): TinlID;
begin

end;

function TiiTask.GetProcName(PID: TinlID): TinlNameType;
begin

end;

function TiiTask.GetProcInfo(PID: TinlID): pointer;
begin

end;

function TiiTask.GetProc(PID: TinlID): pointer;
begin

end;

{ TJobInfo }

constructor TJobInfo.Create;
begin
  inherited Create;

end;

destructor TJobInfo.Destroy;
begin

  inherited;
end;

end.

